home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / amoked / macros / macros.edrc < prev    next >
Encoding:
Text File  |  1997-02-16  |  3.2 KB  |  111 lines
  1. #   MACROS FROM BRYCE
  2. #
  3. #   Some people do not like the default cursor key mappings
  4. #   (see AmokEd.DOC).  Here is an example of remapping them.
  5.  
  6. map `c-up'  `scrollup'
  7. map `c-dow' `scrolldown'
  8.  
  9. map `s-up'  `pageup'
  10. map `s-dow' `pagedown'
  11. map `s-lef' `wleft'
  12. map `s-rig' `wright'
  13.  
  14. map `a-dow' `bottom'
  15. map `a-up'  `top'
  16. map `a-rig' `last'
  17. map `a-lef' `first'
  18.  
  19.  
  20. #       MACROS FROM KIM AND FRIENDS
  21. insertmode on
  22. savetabs on
  23. tabstop 8
  24. pageset 96
  25. # spltjoin
  26.   map `f1'  `ifelse r `join del' split'
  27. # sos lineadd
  28.   map `f2'  `ifelse b `last split down first deline' `last split down first''
  29. # fffile
  30.   map `f3'  `ifelse m `saveold quit' `quit''
  31.   map `f4'  `join'
  32.   map `f5'  `escimm `insfile ''
  33.   map `f6'  `escimm `insfile df1:readme.list''
  34.   map `f7'  `pageup screentop first'
  35.   map `f8'  `pagedown screentop first'
  36.   map `f9'  `insertmode toggle'
  37.   map `f10' `ifelse t bottom top'
  38.   map `s-f7'  `top screentop first'
  39.   map `s-f8'  `bottom screentop first'
  40. # capitalize word
  41.   map `nk0' `wleft if c=34 right if c=39 right if c=96 right if cl `tlate -32' while ca right'
  42. # Uncapitalize word
  43.   map `s-nk0' `wleft if c=34 right if c=39 right if c=96 right if cu `tlate +32' while ca right'
  44.   map `nk3' `ifelse m `saveold quit' `quit''
  45. # save current line in ram file
  46.   map `nk4' `unblock block block bsave ram:dmesave deline'
  47. # get line from ram file (works across edit files
  48.   map `nk5' `insfile ram:dmesave down'
  49. # move current line up 1 line within the file
  50.   map `nk7' `ifelse t `right left' `unblock block block up bmove unblock' '
  51. # move current line down 1 line within the file
  52.   map `nk8' `down unblock block block up bmove unblock down'
  53.   map c-k `remeol'
  54.   map `c-s' `escimm `find ''
  55. # delete with end-of-line join and handling of DME bug with join at the bottom of the file
  56.   map del `ifelse !r del `if !b `down ifelse b `settoggle 1' `resettoggle 1' up join if 1 down'''
  57. # return which handles DME bug of adding 2 lines at the end of a file
  58.   map return `ifelse b `split down first down deline' `split down first''
  59.   map `s- ' `` ''
  60. # backspace with end-of-line join and handling of DME bug with join at the bottom of the file
  61.   map `bs' `ifelse !l bs `ifelse b `settoggle 1' `resettoggle 1' up last join if 1 down del''
  62.   map `tab' `tab'
  63.   map `s-tab' `backtab'
  64.   map `help'  `newwindow newfile df1:s/dme.help'
  65. # make current character upper case and move the cursor right one character
  66.   map `nk-' `if cl `tlate -32' right'
  67.  
  68.  
  69. #       MACROS FROM STEVEN SWEETING
  70.  
  71. savetabs on
  72.  
  73. map return `ifelse r `return insline up firstnb down' `split first down''
  74.  
  75. map backspace `ifelse l `up repeat cright right join if c=32 del' `back''
  76.  
  77. map delete `ifelse r `join if c=32 del' `del''
  78.  
  79. map left `ifelse l `up repeat cright right' `left''
  80.  
  81. map help `'
  82.  
  83. map A-c `saveold execute `run make' iconify'
  84. map sA-c `saveold execute `run make -f SRC:makefile' iconify'
  85.  
  86. map A-p `escimm `Press [RETURN] to Print, [ESC] to stop' saveas `PRT:''
  87.  
  88. map A-s `bsave vd0:tmp'
  89. map A-l `insfile vd0:tmp'
  90.  
  91. map A-n `execute `newcli''
  92.  
  93. map c-k `ifelse r `join first' `remeol''
  94.  
  95. map c-right wright
  96.  
  97. map c-left  wleft
  98.  
  99. map `sc-/' `escimm `findr ''
  100.  
  101. map `sc-n' `nextr'
  102.  
  103. map `sc-p' `prevr'
  104.  
  105. map `sL-lmb' `tomouse firstnb repeat tr `` '''
  106.  
  107. map `sR-rmb' `tomouse firstnb repeat tl bs'
  108.  
  109.  
  110.  
  111.